home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / tools / jade / lisp / help.jlc < prev    next >
Text File  |  1995-03-09  |  4KB  |  98 lines
  1. ;;; Source file: /usr/local/lib/jade/3.2/lisp/help.jl
  2. ;;; Compiled by jsh@orcrist on Sun Oct 16 20:21:08 1994
  3. ;;; Jade 3.2
  4.  
  5. (provide (quote help))
  6.  
  7. (defvar help-buffer (make-buffer "*Help*"))
  8.  
  9. (set-buffer-special help-buffer t)
  10.  
  11. (defvar help-keymap (make-keylist))
  12.  
  13. (bind-keys help-keymap "SPC" (quote next-screen) "BS" (quote prev-screen) "q" (quote bury-buffer))
  14.  
  15. (defvar help-prompt-keymap (make-keylist))
  16.  
  17. (bind-keys help-prompt-keymap "a" (quote apropos-function) "b" (quote describe-keymap) "e" (quote apropos-variable) "f" (quote describe-function) "h" (quote help-help) "Ctrl-h" (quote help-help) "i" (quote info) "Ctrl-i" (quote (info t)) "k" (quote describe-key) "m" (quote describe-mode) "?" (quote help-help) "v" (quote describe-variable) "SPC" (quote (progn (next-screen) (help))) "BS" (quote (progn (prev-screen) (help))))
  18.  
  19. (jade-byte-code "±\"$IF%G±H" [help-buffer (help-keymap global-keymap) keymap-path "Help" mode-name buffer-record-undo] 3)
  20.  
  21. (defun help nil 87072 (interactive) (jade-byte-code "    HF#" [message "Type: a b f h i k m v -- h for more help" (help-prompt-keymap) next-keymap-path] 2))
  22.  
  23. (defun help-help nil 87108 (interactive) (jade-byte-code "    H H    HH" [clear-buffer help-buffer insert "
  24. Help mode -- Type one of the following:
  25.  
  26. a   `apropos-function'
  27.     Search for functions which match a regular expression.
  28.  
  29. b   `describe-keymap'
  30.     Print the key bindings which are currently active.
  31.  
  32. f   `describe-function'
  33.     View the documentation for a particular function.
  34.  
  35. h   `help-help'
  36.     Display this text.
  37.  
  38. i   `info'
  39.     Enter the info hypertext viewer.
  40.  
  41. k   `describe-key'
  42.     Display the command (and its documentation) that a particular
  43.     sequence of keys is currently bound to.
  44.  
  45. m   `describe-mode'
  46.     Show the documentation for the edit mode of the current buffer.
  47.  
  48. v   `describe-variable'
  49.     View the documentation and value of a variable." buffer-start goto-buffer goto-buffer-start help] 4))
  50.  
  51. (defun help-setup nil (jade-byte-code "    H    H    H" [clear-buffer help-buffer goto-buffer insert "
  52. ----
  53. Type `q' to return to the buffer you were in." goto-buffer-start] 2))
  54.  
  55. (defun apropos-function (regexp) (interactive "sRegular expression:") (jade-byte-code "H H
  56. 
  57. H" [help-setup format help-buffer "Apropos for expression %S:
  58. " regexp print apropos fboundp goto-buffer-start] 4))
  59.  
  60. (defun apropos-variable (regexp) (interactive "sRegular expression:") (jade-byte-code "H H
  61. 
  62. H" [help-setup format help-buffer "Apropos for expression %S:
  63. " regexp print apropos boundp goto-buffer-start] 4))
  64.  
  65. (defun describe-keymap nil 87170 (interactive) (jade-byte-code "DI²12H
  66. HE" [keymap-path km-list old-buf help-setup print-keymap goto-buffer-start] 3))
  67.  
  68. (defun describe-function (fun &aux doc) 87252 (interactive "aDescribe function:") (jade-byte-code "    F\"HHD    5‘üû9’ü\"û9Laü/    û9Jü8
  69. û9I6 nþQ ‚þQ
  70. F& H  HwþÓ’ÿÓDLaüuûwP6
  71. HLaþ‘MF&HþÌDL    6Sbÿ¶Ž
  72. F&H EHMF&Hû’H    EEHÿÝ     H!    H\"" [documentation fun doc help-setup symbol-function fval "Special Form" "Built-in Function" macro "Macro" "Function" type jade-byte-code concat "Compiled " format help-buffer "
  73. %s: %s
  74.  
  75. " 2 1 lambda-list prin1 lambda symbol-name arg-name 0 38 translate-string upcase-table " %s" insert "
  76.  
  77. " "Undocumented." "
  78. " goto-buffer-start] 5))
  79.  
  80. (defun describe-variable (var) (interactive "vDescribe variable:") (jade-byte-code "DJ
  81. I²23H    ü    û
  82.      ± J
  83. G±Hÿ3HE" [documentation var old-buf doc help-setup format help-buffer "
  84. %s: %s
  85. Current value: %S
  86.  
  87. %s
  88. " const-variable-p "Constant" "Variable" symbol-name symbol-value "Undocumented." goto-buffer-start] 9))
  89.  
  90. (defun describe-mode nil 87316 (interactive) (jade-byte-code "D1HD    4qþ HEE" [major-mode mode help-setup documentation doc format help-buffer "
  91. %s
  92. " goto-buffer-start] 4))
  93.  
  94. (defun documentation (symbol &optional is-variable) 87366 (jade-byte-code "yþvDI1üzF!ûb    Laþ&    P    H    F H’ü;    F!ûb    LaÿH
  95. LaüT PF!ûbJüa PF!ûbIHpþn    F!HqþuE" [symbol doc is-variable variable-documentation symbol-function autoload load 1 subr-documentation macro special 3 2 get-doc-string] 4))
  96.  
  97. (defun document-var (symbol doc-string) 87531 (jade-byte-code "{H" [symbol variable-documentation doc-string] 3))
  98.